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16-Sep-1984 00:17: VAX=11 FORTRAN V3.4-56 Pa 1 
f-3e0-19 4 90:30:33 DISKSVMSMASTER: CERF  SRCJUBAINT . FOR; 1 2 


1 C 
0004 : Version: *v04-000' 
¢ CRP eee eee eA AAA A EAA AE EEE AAHAHRAAHRAAAAAAAARAAAEAAAAAAAAAAAEAEEAEReee eA e ee 
C* 4 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | 
C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
8 - ALL RIGHTS RESERVED. ® 
0009 ® 
0010 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0011 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
pols C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
001 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0014 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
SES os TRANSFERRED. * 
tt ® 
0017 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
sid eS CORPORATION. * 
® 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ot) eS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
0024 C* * 
0025 CR eee eee ERR AEE AAARAAARATAATAATTERAEKEREREE | 
0026 C 
ooo? 
0028 C | 
a 9 : AUTHOR BRIAN PORTER CREATION DATE 3-FEB-1979 
ite ; Functional description: 
0038 : This module is called to display UBA interrupts. 
0035 C Modified by: 
0036 C 
0037 C v03-004 SARO160 Sharon A. Reynolds, _ 13-0ct-1983 
0038 C Added an SYE update that makes the register heralds 
ste : generic. 
0041 C v03-003 SARO103 Sharon A. Reynolds, 20-Jun-1983 
B0%§ C Changed the carriage control in the ‘format’ statements 
Bee? ; for use with ERF. 
S028 C v03-002 SARO054 Sharon A. Reynolds, 13-Jun-1983 
boe$ : Removed brief/cryptic support. 
0048 C v03-001 BP0001 Brian Porter, 20-AUG-1982 
rds C Minor edit. 
50 (ee 
0051 : 
BO 36 Subroutine UBA_INTERRUPTS (Llun,option) 
0084 include ‘src$:msghdr.for /nolist* | 
114 | 
115 byte lun 


UBA_INTERRUPTS 


character*1 option 


if ¢ 

: LibSextzv(24,8,emb$l_hd_sid) 
so 

.* LibSextzvi24, 8,emb$l_hd_sid) 

1 

1 


iTbSextzv(24,8,emb$\_hd_sid) 
» then 


if (option .eq. ‘'S") then 
call dw780_interrupt (lun) 
endif 


C 
c 
7 c at this point 
7 c 
8 
39 endif 
40 
41 return 
42 end 


PROGRAM SECTIONS 


Name Bytes 
0 SCODE 80 
1 SPDATA 8 
¢ SLOCAL 32 

EMB 512 

Total Space Allocated 632 


ENTRY POINTS 


Address Type Name 


0-00000000 UBA_INTERRUPTS 
VARIABLES 
Address Type Name 


-00000000 {eg EMBSL_HD_SID 


SRROUBORE 133 tHAR BPriOn sere 


eq. 255 ' 11/780 
eq. 1 ' 11/780's 
eq. 4 ! 11/7XxX 


for pees Snes UBA support the ELSE-IF-THEN should be expanded 


Attributes 

PIC CON REL LCL SHR EXE 
PIC CON REL LCL SHR NOEXE 
PIC CON REL LCL NOSHR NOEXE 
PIC OVR REL GBL SHR NOEXE 


Address Type Name 


3-00000004 I* MBSW_H 
AP-00000004a ii ; i UN : 


19-Se0-1984 90:17 
-Sep-1984 14:24 


33 VAX=11 


RD NOWRT LONG 


RD NOWRT LONG 


RD WRT LONG 
RD WRT LONG 
ENTRY 


FORTRAN 
DISKSVMSMASTER: 
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32Eb888005 24 EMBSO_HD_ TIME iy BE Speke 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
DW780_INTERRUPT I*4 LIBSEXTZV 


Address Type Name Bytes Dimensions 
| 
| 
j 


LAAN NII AAAI AAAI AIA pr rr 


CDOOSOOOSCOOOSOCOOCOSOOSOSOSOSOSOOSOSOSSOSSOSOSOSOSCOCOOCCOOCOOOOOOOOOOOoOoOO: 
Ladt afl oft of of it oi oi ld 


0069 BYTE 
0070 
ital INTEGER*4 
7 INTEGER*4 
007 INTEGER*4 
0074 INTEGER®4 
0075 INTEGER®4 
0076 INTEGER®4 
0077 INTEGER#4 
0078 INTEGER®4 
0079 INTEGER*4 
0080 INTEGER*4 
0081 INTEGER*4 
008 
008 lLogical*1 
0084 
0085 EQUIVALENCE 
0086 EQUIVALENCE 
0087 EQUIVALENCE 
0088 EQUIVALENCE 
0089 EQUIVALENCE 
0090 EQUIVALENCE 
0091 EQUIVALENCE 
009 EQUIVALENCE 
009 EQUIVALENCE 
0094 
0095 CHARACTER*31 
0096 DATA V1UBA 
0097 DATA V1UBA 
0098 DATA V1UBA 
0099 DATA V1UBA 
0100 DATA V1UBA 
0101 DATA V1UBA 
B36 DATA V1UBA 
010 
0104 CHARACTER*25 
0105 DATA V1UBAS 
0106 DATA V1UBAS 
Bibs DATA V1UBAS 
108 DATA V1UBAS 
0109 DATA V1UBA 
0110 DATA V1UBA 
0111 DATA V1UBA 
Oils DATA V1UBA 
11 DATA V1UBA 
git DATA V1UBA 
115 DATA V1UBA 


-Sep-19 


SUBROUTINE DW780_INTERRUPT (LUN) 


000 INCLUDE "SRC$:MSGHDR.FOR /NOLIST' 


LUN 


FIELD 
COMPRESS4 
UB 


ROR_P 
ERROR_PSL 
diagnostic_mode 


(EMB(16) ,UBA_CSR) 
(EMB(20) ,UBA_CR) 
(EMB(24) ,UBA~SR) 
(EMB(28) ,UBA_DCR) 
(EMB( 32) ,UBA_FMER) 
(EMB (36) , UBA-FUBAR) 
(EMB(40) ;ADAPTER_TR) 
(EMB(44) ,ERROR_PC) 
(EMB(48) , ERROR-PSL) 
VIUBACR(0:6) 
0) /*ADAPTER_INIT#"/ 
1) /*UNIBUS POWER FAIL*'/ 
@) 7*CONFIGURATION INTERRUPT ENABLE®'/ 
) /7*SBI TO UNIBUS ERROR INT ENABLE®'/ 
4) /"UNIBUS TO SBI ERROR INT ENABLE®'/ 
5) /"BR INTERRUPT ENABLE®’ / 
6) /* INTERRUPT FIELD SWITCH®'/ 
V1UBASR(0:10) 
0) 7*UNIBUS '*SSYN'' TIMEQUT®"/ 
1) /*UNIBUS SELECT TIMEOUT®'/ 
¢) 7/*LOST ERROR®'/ 
) /*MAP REGISTER PARITY FAIL®'/ 
4) /* INVALID MAP REGISTER®'/ 
5) /"DATA PATH PARITY ERROR®'/ 
§) 7*COMMAND TRANSMIT TIMEQUT®*/ 
) 7*COMMAND_ TRANSMIT ERROR®'/ 
8) 7*CORRECTED READ DATA®'/ 
) 7*READ DATA SUBSTITUTE®'/ 
10) 7*READ DATA TIMEOUT®'/ 


6 Se 1984 
-sep- 
5 Ba 
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1$-$ep-19 4 
ety 
SARNTERS aay 
CALL FRCTOF (LUN) 

call header (Lun) 

call logger (lun,''’DW'’ INTERRUPT’) 

diagnostic_mode = .false. 

if (LibSextzv(28,3,uba_dcr) .ne. 0) diagnostic_mode = .true. 
CALL LINCHK (LUN,2) 


WRITE(LUN,10) ERROR_PC 
FORMAT(/' *,T8,*ERROR PC',124,78.8) 


if (.not. diagnostic_mode) then 
CALL VAXPSL (LUN,ERROR_PSL) 
CALL LINCHK (LUN,2) 


WRITE(LUN,12) ADAPTER _TR 
FORMAT(/" *,18,'ADAPTER TR# ',I<COMPRESS4 (ADAPTER_TR)>,'.") 


CALL UBA_REGA (LUN,UBA_CSR) 
else 


call linchk (lun,6) 

write(lun,13) error p*) adapter_tr,uba_csr 

format(/' ',t8, ERROR PSL',t24,28.8,//, 

1 t8, "ADAPTER TRA ic icconpressd (adapter_tr)>,'.',//, 
1 t8,°'’DW'’ CSR',t24,28.8) 

endif 

CALL LINCHK (LUN,1) 


WRITE(LUN,15) UBA_CR 
FORMAT(' 133, Pog" CR',124,78.8) 


if (.not. diagnostic_mode) then 

CALL OUTPUT (LUN,UBA_CR,V1UBACR,0,0,6,'0') 
FIELD = LIBSEXTZV(26,5,UBA_CR) 

IF (FIELD .NE. 0) THEN 

FIELD = (FIELD*16) = 1 

CALL LINCHK (LUN,1) 
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WRITE(LUN, 20) FIELD 
FORMAT(® ',T40,"MAPS 0. THRU ',I<COMPRESS4 (FIELD)>,". DISABLED") 


endif 
CALL LINCHK (LUN,1) 


WRITE(LUN,25) UBA_SR 
FORMAT(' §,78,°'DQ"' SR°,124,28.8) 


if (.not. diagnostic_mode) then 
CALL OUTPUT (LUN,UBA_SR,V1UBASR,0,0,10,'0') 
DO 35,1 = 24,27 

IF (JIANDCUBA_SR,2**1) .NE. 0) THEN 
CALL LINCHK (LUN,1) 

WRITE (LUN, 30) I = 20 

FORMAT(* °,140,"BRRVR ',11,". FULL") 
ENDIF 

CONTINUE 

endif 

CALL LINCHK (LUN,1) 


WRITE(LUN,40) UBA DCR 
FORMAT(' °,T8,'' DO’ DCR',124,78.8) 


if (diagnostic_mode) then 

CALL LINCHK (LUN,1) 

WRITE(LUN, 45) 

FORMAT(" °,140,"DIAGNOSTIC MODE') 
endif 

CALL LINCHK (LUN,1) 


WRITE(LUN,50) UBA_FMER 
FORMAT(* *,T8,''DQ"’ FMER',124,28.8) 


if (.not. diagnostic_mode) then 

IF (JIAND(UBA_SR,*OOO006F8'X) .NE. 0) THEN 
FIELD = LIBSEXTZV(0,9,UBA_FMER) 

CALL LINCHK (LUN,1) 


WRITE(LUN,55) FIELD 
FORMAT(® ',140,°SELECTED MAP = ',1<COMPRESS4 (FIELD)>,".") 


endif 
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DW780_ INTERRUPT 


PROGRAM SECTIONS 
Name 
SCODE 


0 
1 SPDATA 
BS $LOCAL 


Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 DW780_ INTERRUPT 


VARIABLES 
Address Type Name 
1*4 ADAPTER_TR 
I EMBSL_HB_SID 
I*2 EMBSW_HD ERRSEQ 
I*4 ERROR_PSC 
TR 
1*4 UBA_CSR 
1*4 UBA_FMER 
UBA_SR 


Re 
Sep 


»NE. 0) THEN 


*,05.5,°X (OCTAL)") 


0230 

8 1 CALL LINCHK (LUN,1) 

0 : WRITE(LUN,60) UBA FUBAR 

8 3 60 FORMAT(' §,18,'"DQ"’ FUBAR',124,28.8) 
8 § if (.not. diagnostic_mode) then 

8 Hs IF (JIAND(CUBA_SR,'00000003'x) 

° re FIELD = JISHFT(JIAND(UBA_FUBAR, ‘OOOOFFFE'X),-1) 
8 ¢g CALL LINCHK (LUN,1) 

0244 ped AI 709) FIELD 

0245 65 €140,'UNIBUS ADDRESS = 

Bsee Tr 

0247 endif 

0248 

0249 RETURN 

0250 END 


Attributes 

PIC CON REL LCL SHR 
PIC CON REL LCL SHR 
PIC CON REL LCL NOSHR 
PIC OVR REL GBL- SHR 


Address Type 


-0000 
-0000 


eee | 
ce 


“1986 fa: 


EXE 
NOEXE 
NOEXE 
NOE XE 


Name 
DIAGNOSTI 
EMBSW_HD_ 
ERROR_PC 
hee 
UBA_CR 
UBA_DCR 
UBA_FUBAR 


7s 33 VAX=11_ FORTRAN Yee 
4: DISKSVMSMASTER: CERF. 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 
RD WRT LONG 


C_MODE 
ENTRY 


— | 


Cc 
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DW780_INTERRUPT Ip- Sep-1984 00: 17348 VAX-11 FORTRAN iF - 4-56 Page 
-Sep-1984 14:24: DISKSVMSMASTER: CERF .SRCJUBAINT.FOR;1 
ARRAYS 
Address Type Name Bytes Dimensions 
-00000000 L*1l EMB 51 (0:511) 
-00000006 I*4 EMBSQ_HD_TIME (2) 
- 000 CHAR VIUBATR ~ 1 (0:6) 
-000000D9 CHAR VIUBASR 75 (0:10) 
LABELS 
Address Label Address Label Address Label Address’ Label Address Label Address’ Label 
1-00000039 10° 1-0000004F 12' 1-0000006D 13' 1-000000B2 15° 1=000000C6 20° 1=Q00000ED 25° 
1-00000101 30° ee 35 1-00000119 40° 1-0000012E 45° 1-00000145 50° 1-0000015B8 55° 
1-0000017B 60° 1-00000192 65° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
I1*4 COMPRESS4 FRCTOF HEADER I*4 LIBSEXTZV LiNCHK LOGGER 
OUTPUT UBA_REGA VAXPSL 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:UBAINT/OBJ=O0BJ$:UBAINT MSRC$:UBAINT 


DE ,MAP) 
/F77 =/NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: ? seconds 


4.0 
Elapsed Time: 10.42 seconds 
Page Faults: 181 
Dynamic Memory: 185 pages 
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